home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 8 / cdrt08.iso / mac / Shareware / Applications / LabHelper 4.01 Folder / LabHelper 4.01 / LabHelper 4.01.rsrc / LENS_129_Find < prev    next >
Encoding:
Text File  |  1994-12-12  |  6.3 KB  |  133 lines
  1. ItemType: WIND
  2. Rect: 145,80,495,282
  3. Style: Windoid
  4. HasTitleBar: TRUE
  5. HasZoomBox: TRUE
  6. HasCloseBox: TRUE
  7. HasGrowBox: FALSE
  8. MinSize: 350,0
  9. MaxSize: 350,202
  10. Name: Find
  11. WhiteColor: -8739,-8739,-8739
  12. Script: --on windowEvent  --wdID,wdName,objNo,objName,objValue┬if objValue="Open" then ┬  get licenseCheck()┬  wsSet wdID,"3","Text", ""┬  wsSet wdID,"5","Text", ""┬  wsSet wdID,"8","Value", "0"┬  wsSet wdID,"11","Hilite", "FALSE"┬  wsSet wdID,"14","Text", ""┬  wsSet wdID,"0","Height", "202"┬end if┬--end windowEvent┬┬
  13. Params: i0_Use this window
  14.  
  15. ItemType: PUSH
  16. Rect: 282,176,339,196
  17. AutoSize: FALSE
  18. Name: Find
  19. DefaultItem: TRUE
  20. Balloon: Click on this button to invoke the search.
  21. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬wsSet wdID,"11","Hilite", "FALSE"┬put empty into searchFor┬put empty into buildList┬wsSet wdID,"5","Text", ""┬wsSet wdID,"14","Text", ""┬get wsGet(wdID,"3","Text")┬put it into searchFor┬if searchFor ¡ empty then┬  wsSet wdID,"2","Disabled", "true"┬  put the number of cards in this stack into x┬  wsSet wdID,"8","Max", x┬  lock screen┬  if x > 1 then┬    put the number of this card into returnPoint┬    go to the first card of this stack┬  end if┬  wsSet wdID,"8","Value", "1"┬  find searchFor┬  if the result is not empty then┬    put "No occurrences found..." into buildList┬  else┬    put the id of this card into LoopCheck┬    put the foundText&"╫"&&the short name of this cd&return after buildList ┬    go next cd┬    put the number of this cd into i┬    wsSet wdID,"8","Value", i  ┬    put empty into currID┬    repeat until currID = LoopCheck┬      find searchFor   ┬      put the id of this card into currID┬      if currID = LoopCheck then ┬        exit repeat┬        wsSet wdID,"8","Value", x┬      end if     ┬      put the foundText&"╫"&&the short name of this cd&return after buildList┬      put the number of this cd into i┬      wsSet wdID,"8","Value", i  ┬      go next cd┬    end repeat┬  end if┬  if the number of lines in buildList > 1 then┬    delete the last char of buildList┬    put fullSort(buildList,"t=u","d=a") into buildList┬  end if┬  put the number of lines in buildList into theLines┬  wsSet wdID,"8","Value", x┬  wsSet wdID,"2","Disabled", "false"┬  wsSet wdID,"5","Text", buildList┬  wsSet wdID,"14","Text", theLines┬  if x > 1 then go to card returnPoint┬  wsSet wdID,"8","Value","0"┬  unlock screen┬end if┬wsSet wdID,"2","Disabled", "FALSE"┬--end mouseUp┬┬┬
  22.  
  23. ItemType: PUSH
  24. Rect: 215,177,275,197
  25. AutoSize: FALSE
  26. Name: Cancel
  27. CancelItem: TRUE
  28. AutoClose: TRUE
  29. Balloon: Click on this button to cancel the search.
  30.  
  31. ItemType: TEXT
  32. Rect: 37,15,314,37
  33. TextFont: LabHelper
  34. TextSize: 12
  35. Name: userEnter
  36. WhiteColor: -13108,-1,-1
  37. LockText: FALSE
  38. Balloon: Enter string to find here.
  39. Script: --on closeField  wdID,wdName,objNo,objName,objValue┬--end closeField
  40.  
  41. ItemType: LBL
  42. Rect: 8,40,191,52
  43. TextFont: Geneva
  44. TextSize: 9
  45. Text: String Found                         Card Name
  46.  
  47. ItemType: LIST
  48. Rect: 8,56,342,170
  49. TextFont: LabHelper
  50. TextSize: 12
  51. Name: path
  52. WhiteColor: -13108,-1,-1
  53. Style: ListWithTabs...
  54. StyleInfo: ...............>
  55. Logic: Single
  56. KeyScroll: TRUE
  57. Text: 
  58. Balloon: All occurrences found.
  59. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬put the name of this card into imHere┬get wsGet(wdID,"5","selectionText")┬if it = empty or it = "no occurrences found..."  then┬  beep┬  wsSet wdID,"11","Hilite", "FALSE"┬else┬  delete word 1 of it┬  put it into goTo┬  if goTo ¡ imHere then┬    if word 1 of goTo = "card" then┬      do "go to goTo"┬    else┬      do "go to card goTo"┬    end if┬    find searchFor┬  end if┬  if the marked of this cd is true then┬    wsSet wdID,"11","Hilite", "TRUE"┬  else┬    wsSet wdID,"11","Hilite", "FALSE"┬  end if┬end if┬--end mouseUp┬┬┬┬┬
  60.  
  61. ItemType: LBL
  62. Rect: 7,18,40,31
  63. TextFont: Geneva
  64. TextSize: 10
  65. TextStyle: Bold
  66. Text: Find:
  67.  
  68. ItemType: PUSH
  69. Rect: 152,177,212,197
  70. AutoSize: FALSE
  71. Name: Clear
  72. Balloon: Clear all.
  73. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬wsSet wdID,"3","Text", ""┬wsSet wdID,"5","Text", ""┬wsSet wdID,"8","Value", "0"┬wsSet wdID,"11","Hilite", "FALSE"┬wsSet wdID,"14","Text",""┬--end mouseUp
  74.  
  75. ItemType: CNTL
  76. Rect: 29,2,310,13
  77. Disabled: TRUE
  78. BlackColor: 0,0,-4370
  79. WhiteColor: -13108,-1,-1
  80. Name: Completed
  81. Style: 320
  82. Min: 0
  83. Max: 100
  84. Value: 0
  85. Step: 1
  86. Leap: 10
  87. Balloon: Progress indicator.
  88.  
  89. ItemType: TEXT
  90. Rect: 8,2,27,14
  91. TextFont: Geneva
  92. TextSize: 9
  93. WhiteColor: -8739,-8739,-8739
  94. Text: 0%
  95.  
  96. ItemType: TEXT
  97. Rect: 313,2,344,14
  98. TextFont: Geneva
  99. TextSize: 9
  100. Name: 100%
  101. WhiteColor: -8739,-8739,-8739
  102. Text: 100%
  103.  
  104. ItemType: CHK
  105. Rect: 285,40,342,52
  106. TextFont: Geneva
  107. TextSize: 9
  108. Name: Marked
  109. Balloon: Click on this button to mark or unmark selected record.
  110. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"5","selectionText")┬if it = empty or it = "no occurrences found..."  then┬  beep┬  wsSet wdID,"11","Hilite", "FALSE"┬else┬  if the marked of this cd is true then┬    unmark this card┬    wsSet wdID,"11","Hilite", "FALSE"┬  else┬    mark this card┬    wsSet wdID,"11","Hilite", "TRUE"┬  end if┬  openCard┬end if┬--end mouseUp┬
  111.  
  112. ItemType: PUSH
  113. Rect: 6,177,69,197
  114. AutoSize: FALSE
  115. Name: Mark All
  116. Balloon: Click on this button to mark all listed records.
  117. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"5","Text")┬put it into cardsFound┬if cardsFound = empty or cardsFound = "no occurrences found..." then┬  beep┬else┬  unmark all cds┬  repeat with x=1 to the number of lines in cardsFound┬    delete word 1 of line x of cardsFound┬    put line x of cardsFound into goTo┬    if word 1 of goTo = "card" then┬      set the marked of goTo to true┬    else┬      set the marked of card goTo to true┬    end if┬  end repeat┬  wsSet wdID,"11","Hilite", "TRUE"┬  wsSet wdID,"5","SelectionText", ""┬  openCard┬end if┬--end mouseUp┬
  118.  
  119. ItemType: PUSH
  120. Rect: 73,177,149,197
  121. AutoSize: FALSE
  122. Name: Unmark All
  123. Balloon: Click on this button to unmark all listed records.
  124. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"5","Text")┬put it into cardsFound┬if cardsFound = empty or cardsFound = "no occurrences found..." then┬  beep┬else┬  unmark all cds┬  wsSet wdID,"11","Hilite", "FALSE"┬  wsSet wdID,"5","SelectionText", ""┬  openCard┬end if┬--end mouseUp┬
  125.  
  126. ItemType: TEXT
  127. Rect: 73,40,77,52
  128. TextFont: Geneva
  129. TextSize: 9
  130. Name: total found
  131. WhiteColor: -8739,-8739,-8739
  132. TextAlign: Center
  133. Balloon: The total number of records found.